Imports System.Windows.Forms

Public Partial Class InsertActionForm
	Inherits Form

	#Region "Constructor"

	Public Sub New()
		InitializeComponent()
	End Sub

	#End Region


	#Region "Properties"

	Private _action As Integer = 2
	' overlay
	Public ReadOnly Property Action() As Integer
		Get
			Return _action
		End Get
	End Property

	#End Region


	#Region "Methods"

	Private Sub bActionAnnotation_Click(sender As Object, e As EventArgs)
		_action = 1
		DialogResult = System.Windows.Forms.DialogResult.OK
	End Sub

	Private Sub bActionOverlay_Click(sender As Object, e As EventArgs)
		_action = 2
		DialogResult = System.Windows.Forms.DialogResult.OK
	End Sub

	Private Sub bActionReplace_Click(sender As Object, e As EventArgs)
		_action = 3
		DialogResult = System.Windows.Forms.DialogResult.OK
	End Sub

	Private Sub bCancel_Click(sender As Object, e As EventArgs)
		DialogResult = System.Windows.Forms.DialogResult.Cancel
	End Sub

	#End Region

End Class
